﻿Imports System.Collections

Imports System.Xml

Imports System

Imports Microsoft.VisualStudio.TestTools.UnitTesting

Imports JCsTools.Xml.Formatter



'''<summary>
'''This is a test class for DefaultIListReferenceFormatterTest and is intended
'''to contain all DefaultIListReferenceFormatterTest Unit Tests
'''</summary>
<TestClass()> _
Public Class DefaultIListReferenceFormatterTest


    Private testContextInstance As TestContext

    '''<summary>
    '''Gets or sets the test context which provides
    '''information about and functionality for the current test run.
    '''</summary>
    Public Property TestContext() As TestContext
        Get
            Return testContextInstance
        End Get
        Set(ByVal value As TestContext)
            testContextInstance = Value
        End Set
    End Property

#Region "Additional test attributes"
    '
    'You can use the following additional attributes as you write your tests:
    '
    'Use ClassInitialize to run code before running the first test in the class
    '<ClassInitialize()>  _
    'Public Shared Sub MyClassInitialize(ByVal testContext As TestContext)
    'End Sub
    '
    'Use ClassCleanup to run code after all tests in a class have run
    '<ClassCleanup()>  _
    'Public Shared Sub MyClassCleanup()
    'End Sub
    '
    'Use TestInitialize to run code before running each test
    '<TestInitialize()>  _
    'Public Sub MyTestInitialize()
    'End Sub
    '
    'Use TestCleanup to run code after each test has run
    '<TestCleanup()>  _
    'Public Sub MyTestCleanup()
    'End Sub
    '
#End Region


    '''<summary>
    '''A test for SerializeItems
    '''</summary>
    <TestMethod(), _
     DeploymentItem("JCsTools.Xml.Formatter.dll")> _
    Public Sub SerializeItemsTest()
        Dim param0 As PrivateObject = Nothing ' TODO: Initialize to an appropriate value
        Dim target As DefaultIListReferenceFormatter_Accessor = New DefaultIListReferenceFormatter_Accessor(param0) ' TODO: Initialize to an appropriate value
        Dim list As IList = Nothing ' TODO: Initialize to an appropriate value
        Dim writer As XmlWriter = Nothing ' TODO: Initialize to an appropriate value
        target.SerializeItems(list, writer)
        Assert.Inconclusive("A method that does not return a value cannot be verified.")
    End Sub

    '''<summary>
    '''A test for Serialize
    '''</summary>
    <TestMethod()> _
    Public Sub SerializeTest()
        Dim context As IRootFormatter = Nothing ' TODO: Initialize to an appropriate value
        Dim listType As Type = Nothing ' TODO: Initialize to an appropriate value
        Dim target As DefaultIListReferenceFormatter = New DefaultIListReferenceFormatter(context, listType) ' TODO: Initialize to an appropriate value
        Dim graph As Object = Nothing ' TODO: Initialize to an appropriate value
        Dim writer As XmlWriter = Nothing ' TODO: Initialize to an appropriate value
        target.Serialize(graph, writer)
        Assert.Inconclusive("A method that does not return a value cannot be verified.")
    End Sub

    '''<summary>
    '''A test for DeserializeItems
    '''</summary>
    <TestMethod(), _
     DeploymentItem("JCsTools.Xml.Formatter.dll")> _
    Public Sub DeserializeItemsTest()
        Dim param0 As PrivateObject = Nothing ' TODO: Initialize to an appropriate value
        Dim target As DefaultIListReferenceFormatter_Accessor = New DefaultIListReferenceFormatter_Accessor(param0) ' TODO: Initialize to an appropriate value
        Dim list As IList = Nothing ' TODO: Initialize to an appropriate value
        Dim element As XmlElement = Nothing ' TODO: Initialize to an appropriate value
        target.DeserializeItems(list, element)
        Assert.Inconclusive("A method that does not return a value cannot be verified.")
    End Sub

    '''<summary>
    '''A test for Deserialize
    '''</summary>
    <TestMethod()> _
    Public Sub DeserializeTest()
        Dim context As IRootFormatter = Nothing ' TODO: Initialize to an appropriate value
        Dim listType As Type = Nothing ' TODO: Initialize to an appropriate value
        Dim target As DefaultIListReferenceFormatter = New DefaultIListReferenceFormatter(context, listType) ' TODO: Initialize to an appropriate value
        Dim element As XmlElement = Nothing ' TODO: Initialize to an appropriate value
        Dim expected As Object = Nothing ' TODO: Initialize to an appropriate value
        Dim actual As Object
        actual = target.Deserialize(element)
        Assert.AreEqual(expected, actual)
        Assert.Inconclusive("Verify the correctness of this test method.")
    End Sub

    '''<summary>
    '''A test for DefaultIListReferenceFormatter Constructor
    '''</summary>
    <TestMethod()> _
    Public Sub DefaultIListReferenceFormatterConstructorTest()
        Dim context As IRootFormatter = Nothing ' TODO: Initialize to an appropriate value
        Dim listType As Type = Nothing ' TODO: Initialize to an appropriate value
        Dim target As DefaultIListReferenceFormatter = New DefaultIListReferenceFormatter(context, listType)
        Assert.Inconclusive("TODO: Implement code to verify target")
    End Sub
End Class
